Public Class splashForm

    'Total time in seconds for the fading:
    Private Const AnimationInSeconds As Double = 0.23

    Private Sub Form2_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        My.Settings.updateCheck = False

        Dim StartTime As Double = DateAndTime.Timer
        Dim ElaspedTime As Double = 0
        Do While ElaspedTime < AnimationInSeconds
            'if elasped time is .1 seconds then
            'the opacity will be .1 / .5 = 20%
            Me.Opacity = ElaspedTime / AnimationInSeconds
            ElaspedTime = DateAndTime.Timer - StartTime
            Me.Refresh()
        Loop
        My.Settings.firstStart = False
        My.Settings.updateCheck = False
    End Sub

End Class